home *** CD-ROM | disk | FTP | other *** search
/ One Click 14 / OneClick14.iso / Ferramentas / Convert XLS to Pdf / xls2pdf_setup.exe / {app} / lib / gs_pdfwr.ps < prev    next >
Encoding:
Text File  |  2002-11-19  |  19.1 KB  |  605 lines
  1.  %    Copyright (C) 1996, 2000 Aladdin Enterprises.  All rights reserved.
  2. % 
  3. % This software is provided AS-IS with no warranty, either express or
  4. % implied.
  5. % 
  6. % This software is distributed under license and may not be copied,
  7. % modified or distributed except as expressly authorized under the terms
  8. % of the license contained in the file LICENSE in this distribution.
  9. % 
  10. % For more information about licensing, please refer to
  11. % http://www.ghostscript.com/licensing/. For information on
  12. % commercial licensing, go to http://www.artifex.com/licensing/ or
  13. % contact Artifex Software, Inc., 101 Lucas Valley Road #110,
  14. % San Rafael, CA  94903, U.S.A., +1(415)492-9861.
  15.  
  16. % $Id: gs_pdfwr.ps,v 1.21 2002/11/18 19:36:57 alexcher Exp $
  17. % PDF writer additions to systemdict.
  18.  
  19. % This file should be included iff the pdfwrite "device" is included
  20. % in the executable.
  21.  
  22. % ---------------- Predefined configurations ---------------- %
  23.  
  24. % These correspond to the 4 predefined settings in Acrobat Distiller 5,
  25. % plus a "default" setting that doesn't downsample images.
  26.  
  27. /.a2112 [2 1 1 2] readonly def
  28. /.a1111 [1 1 1 1] readonly def
  29. /.standardfonts [
  30.   /Courier /Courier-Bold /Courier-Oblique /Courier-BoldOblique
  31.   /Helvetica /Helvetica-Bold /Helvetica-Oblique /Helvetica-BoldOblique
  32.   /Times-Roman /Times-Bold /Times-Italic /Times-BoldItalic
  33.   /Symbol /ZapfDingbats
  34. ] readonly def
  35.  
  36. % Parameters common to all non-default configurations.
  37. % Note that the default configuration overrides a few of these.
  38. /.defaultImageDict mark
  39.   /QFactor 0.9 /Blend 1
  40.   /HSamples .a2112 /VSamples .a2112
  41. .dicttomark readonly def
  42. /.distillercommon mark
  43.   /AlwaysEmbed []
  44.   /AntiAliasColorImages false
  45.   /AntiAliasGrayImages false
  46.   /AntiAliasMonoImages false
  47.   /ASCII85EncodePages false
  48.   /AutoFilterColorImages true
  49.   /AutoFilterGrayImages true
  50.   /AutoPositionEPSFiles true
  51.   /Binding /Left
  52.   /CalCMYKProfile (None)        % (U.S. Web Coated (SWOP) v2)
  53.   /CalGrayProfile (None)        % (Dot Gain 20%)  
  54.   /CalRGBProfile (None)            % (sRGB IEC61966-2.1)
  55.   /ColorImageDepth -1
  56.   /ColorImageDict .defaultImageDict
  57.   /ColorImageDownsampleThreshold 1.5
  58.   /ColorImageFilter /DCTEncode
  59.   /CompressPages true
  60.   /ConvertImagesToIndexed true
  61.   /DefaultRenderingIntent /Default
  62.   /DetectBlends true
  63.   /DownsampleColorImages true
  64.   /DownsampleGrayImages true
  65.   /DownsampleMonoImages true
  66.   /EmitDSCWarnings false
  67.   /EncodeColorImages true
  68.   /EncodeGrayImages true
  69.   /EncodeMonoImages true
  70.   /EndPage -1
  71.   /GrayImageDepth -1
  72.   /GrayImageDict .defaultImageDict
  73.   /GrayImageDownsampleThreshold 1.5
  74.   /GrayImageFilter /DCTEncode
  75.   /ImageMemory 524288
  76.   /LockDistillerParams false
  77.   /MaxSubsetPct 100
  78.   /MonoImageDepth -1
  79.   /MonoImageDict mark
  80.     /K -1
  81.   .dicttomark readonly
  82.   /MonoImageDownsampleThreshold 1.5
  83.   /MonoImageFilter /CCITTFaxEncode
  84.   /OffOptimizations 0
  85.   /OPM 1
  86.   /Optimize true
  87.   /ParseDSCComments true
  88.   /ParseDSCCommentsForDocInfo true
  89.   /PreserveCopyPage true
  90.   /PreserveHalftoneInfo false
  91.   /sRGBProfile (None)            % (sRGB IEC61966-2.1)
  92.   /StartPage 1
  93.   /SubsetFonts true
  94.   /TransferFunctionInfo /Preserve
  95.   /UseFlateCompression true
  96.   /UsePrologue false
  97. .dicttomark readonly def
  98.  
  99. /.distillersettings mark
  100.  
  101. /default mark
  102.   /AutoRotatePages /PageByPage
  103.   /CannotEmbedFontPolicy /Warning
  104.   /ColorACSImageDict .defaultImageDict
  105.   /ColorConversionStrategy /LeaveColorUnchanged
  106. %  /ColorImageDownsampleType
  107. %  /ColorImageResolution
  108. %  /CompatibilityLevel
  109.   /CreateJobTicket false
  110.   /DoThumbnails false
  111.   /DownsampleColorImages false        % override
  112.   /DownsampleGrayImages false        % override
  113.   /DownsampleMonoImages false        % override
  114.   /EmbedAllFonts true
  115.   /GrayACSImageDict .defaultImageDict
  116. %  /GrayImageDownsampleType
  117. %  /GrayImageResolution
  118. %  /MonoImageDownsampleType
  119. %  /MonoImageResolution
  120.   /NeverEmbed .standardfonts
  121.   /Optimize false            % override
  122.   /PreserveEPSInfo true
  123.   /PreserveOPIComments true
  124.   /PreserveOverprintSettings true
  125.   /UCRandBGInfo /Preserve
  126. .dicttomark readonly
  127.  
  128. /.screenACSImageDict mark
  129.   /QFactor 0.76 /Blend 1 /ColorTransform 1
  130.   /HSamples .a2112 /VSamples .a2112
  131. .dicttomark readonly def
  132. /screen mark
  133.   /AutoRotatePages /PageByPage
  134. %  /CalGrayProfile (None)
  135.   /CannotEmbedFontPolicy /Warning
  136.   /ColorACSImageDict .screenACSImageDict
  137.   /ColorConversionStrategy /sRGB
  138.   /ColorImageDownsampleType /Average
  139.   /ColorImageResolution 72
  140.   /CompatibilityLevel 1.2
  141.   /CreateJobTicket false
  142.   /DoThumbnails false
  143.   /EmbedAllFonts true
  144.   /GrayACSImageDict .screenACSImageDict
  145.   /GrayImageDownsampleType /Average
  146.   /GrayImageResolution 72
  147.   /MonoImageDownsampleType /Average
  148.   /MonoImageResolution 300
  149.   /NeverEmbed .standardfonts
  150.   /PreserveEPSInfo false
  151.   /PreserveOPIComments false
  152.   /PreserveOverprintSettings false
  153.   /UCRandBGInfo /Remove
  154. .dicttomark readonly
  155.  
  156. /ebook mark
  157.   /AutoRotatePages /All
  158. %  /CalGrayProfile (None)
  159.   /CannotEmbedFontPolicy /Warning
  160.   /ColorACSImageDict .screenACSImageDict
  161.   /ColorConversionStrategy /sRGB
  162.   /ColorImageDownsampleType /Bicubic
  163.   /ColorImageResolution 150
  164.   /CompatibilityLevel 1.3
  165.   /CreateJobTicket false
  166.   /DoThumbnails false
  167.   /EmbedAllFonts true
  168.   /GrayACSImageDict .screenACSImageDict
  169.   /GrayImageDownsampleType /Bicubic
  170.   /GrayImageResolution 150
  171.   /MonoImageDownsampleType /Bicubic
  172.   /MonoImageResolution 300
  173.   /NeverEmbed .standardfonts
  174.   /PreserveEPSInfo false
  175.   /PreserveOPIComments false
  176.   /PreserveOverprintSettings false
  177.   /UCRandBGInfo /Remove
  178. .dicttomark readonly
  179.  
  180. /.printerACSImageDict mark
  181.   /QFactor 0.4 /Blend 1 /ColorTransform 1
  182.   /HSamples .a1111 /VSamples .a1111
  183. .dicttomark readonly def
  184. /printer mark
  185.   /AutoRotatePages /None
  186. %  /CalGrayProfile (None)
  187.   /CannotEmbedFontPolicy /Warning
  188.   /ColorACSImageDict .printerACSImageDict
  189.   /ColorConversionStrategy /UseDeviceIndependentColor
  190.   /ColorImageDownsampleType /Bicubic
  191.   /ColorImageResolution 300
  192.   /CompatibilityLevel 1.3
  193.   /CreateJobTicket true
  194.   /DoThumbnails false
  195.   /EmbedAllFonts true
  196.   /GrayACSImageDict .printerACSImageDict
  197.   /GrayImageDownsampleType /Bicubic
  198.   /GrayImageResolution 300
  199.   /MonoImageDownsampleType /Bicubic
  200.   /MonoImageResolution 1200
  201.   /NeverEmbed []
  202.   /PreserveEPSInfo true
  203.   /PreserveOPIComments true
  204.   /PreserveOverprintSettings true
  205.   /UCRandBGInfo /Preserve
  206. .dicttomark readonly
  207.  
  208. /.prepressACSImageDict mark
  209.   /QFactor 0.15 /Blend 1 /ColorTransform 1
  210.   /HSamples .a1111 /VSamples .a1111
  211. .dicttomark readonly def
  212. /prepress mark
  213.   /AutoRotatePages /None
  214.   /CannotEmbedFontPolicy /Error
  215.   /ColorACSImageDict .prepressACSImageDict
  216.   /ColorConversionStrategy /LeaveColorUnchanged
  217.   /ColorImageDownsampleType /Bicubic
  218.   /ColorImageResolution 300
  219.   /CompatibilityLevel 1.3
  220.   /CreateJobTicket true
  221.   /DoThumbnails true
  222.   /EmbedAllFonts true
  223.   /GrayACSImageDict .prepressACSImageDict
  224.   /GrayImageDownsampleType /Bicubic
  225.   /GrayImageResolution 300
  226.   /MonoImageDownsampleType /Bicubic
  227.   /MonoImageResolution 1200
  228.   /NeverEmbed []
  229.   /PreserveEPSInfo true
  230.   /PreserveOPIComments true
  231.   /PreserveOverprintSettings true
  232.   /UCRandBGInfo /Preserve
  233. .dicttomark readonly
  234.  
  235. .dicttomark readonly def
  236.  
  237. % ---------------- End of predefined configurations ---------------- %
  238.  
  239. % Set optimizations for converting PostScript to PDF.
  240. % The ps2pdf* scripts invoke this.
  241. /.setpdfwrite {        % - .setpdfwrite -
  242.         % Set a large VM threshold to reduce garbage collection.
  243.   currentuserparams /VMThreshold get 3000000 .max setvmthreshold
  244.         % Install a level of 'save' to reduce font loading.
  245.   save pop
  246. } bind def
  247.  
  248. % ---------------- pdfmark and DSC processing ---------------- %
  249.  
  250. % Encode values to pass for the /pdfmark or /DSC pseudo-parameter.
  251. /.pdf===dict mark
  252.   /arraytype
  253.    { dup xcheck { ({) (}) } { ([) (]) } ifelse
  254.         % Stack: file obj left right
  255.       4 1 roll 2 index exch writestring () exch
  256.        { exch 2 index exch writestring
  257.      1 index exch pdf===only ( )
  258.        }
  259.       forall pop exch writestring
  260.    } bind
  261.   /packedarraytype 1 index
  262.   /dicttype
  263.    { 1 index (<<\n) writestring
  264.       { 2 index 3 -1 roll pdf===only 1 index ( ) writestring
  265.     1 index exch pdf===only dup (\n) writestring
  266.       }
  267.      forall (>>) writestring
  268.    } bind
  269.   /nametype {
  270.     % If the name string includes any non-regular characters,
  271.     % write it with two preceding and one following null character(s).
  272.     % (Null characters in the name itself are not allowed.)
  273.     % This non-standard escape convention is required for passing names
  274.     % that include non-regular characters, because PostScript provides
  275.     % no way to do this.  The pdf_scan_token procedure in the C code of
  276.     % the pdfwrite driver is currently the only place that recognizes
  277.     % this convention.
  278.     dup .namestring (\000\011\012\014\015 %()/<>[]{}) .stringbreak null ne {
  279.       dup .namestring (\000) .stringbreak null ne {
  280.     /rangecheck signalerror
  281.       } if
  282.       1 index <0000> writestring 1 index exch write===only 0 write
  283.     } {
  284.       write===only
  285.     } ifelse
  286.   } bind
  287. .dicttomark readonly def
  288. /pdf===only {    % <file> <obj> pdf===only -
  289.   .pdf===dict 1 index type .knownget { exec } { write===only } ifelse
  290. } bind def
  291. /.pdfcvbuf 10 string def    % enough for most arguments
  292. userdict /.pdfcvstring () put
  293. /.pdfcvs {        % <obj> .pdfcvs <string>
  294.   currentglobal exch false .setglobal
  295.   /.pdfcvstring () store
  296.         % We can't handle long values yet.
  297.   { pop dup length 0 eq { pop } {
  298.       /.pdfcvstring .pdfcvstring 3 -1 roll concatstrings store
  299.     } ifelse //.pdfcvbuf
  300.   } /NullEncode filter dup 3 -1 roll pdf===only
  301.   closefile
  302.   .setglobal .pdfcvstring
  303. } bind def
  304.  
  305. % Redefine pdfmark to pass the data to the driver.
  306. % We use a pseudo-parameter named /pdfmark whose value is an array:
  307. %    /key1 (value1) ... (CTM) /type
  308. /.pdfputparams {    % -mark- <key1> <value1> ... .pdfputparams <result...>
  309.   currentdevice null false counttomark 1 add 3 roll
  310.         % Don't allow the page device to get cleared....
  311.   {.putdeviceparams} .currentpagedevice pop {.setpagedevice} 3 .execn
  312. } bind def
  313. % Convert relevant operands to strings in an array.
  314. /.pdfcvsloop {        % -mark- values ... markname start step .pdfcvsloop
  315.             %   [values ... ctm markname]
  316.    matrix currentmatrix .pdfcvs 4 1 roll
  317.    counttomark 1 add 2 roll 
  318.    counttomark .localvmarray astore exch pop
  319.    3 1 roll
  320.             % Stack: values start step
  321.    2 index length 3 sub { 2 copy 2 copy get .pdfcvs put pop } for
  322. } bind def
  323. /.pdfcvsall {        % -mark- values ... markname .pdfcvsall <<same>>
  324.   0 1 .pdfcvsloop
  325. } bind def
  326. /.pdfcvseven {        % -mark- key value ... markname .pdfcvseven <<same>>
  327.   1 2 .pdfcvsloop
  328. } bind def
  329. /.pdfcvsnone {        % -mark- values ... markname .pdfcvsnone <<same>>
  330.   100000 1 .pdfcvsloop
  331. } bind def
  332. /.pdfcvsfirst {        % -mark- first values ... markname .pdfcvsfirst<<same>>
  333.   .pdfcvsnone
  334.   dup 0 2 copy get .pdfcvs put
  335. } bind def
  336. % The procedures in the following dictionary are called with the entire
  337. % pdfmark operand list (including the pdfmark name) on the stack;
  338. % they may modify this ad lib.  They must call .pdfcvsxxx.
  339. /.pdfmarkparams mark
  340.     % Unpack a dictionary for PUT, and don't convert stream data.
  341.   /PUT {
  342.     counttomark 3 eq {
  343.       1 index type /dicttype eq {
  344.     pop { } forall /.PUTDICT .pdfcvsall
  345.       } {
  346.     pop dup type /filetype eq {
  347.         % Read the file into a sequence of strings.
  348.         % This isn't great, but it's simple.
  349.       {
  350.         dup 1000 string readstring not { exch exit } if
  351.         exch
  352.       } loop closefile
  353.     } if
  354.     /.PUTSTREAM .pdfcvsfirst
  355.       } ifelse
  356.     } {
  357.       .pdfcvsall
  358.     } ifelse
  359.   } bind
  360.     % Unpack the array for PUTINTERVAL.
  361.   /PUTINTERVAL {
  362.     pop aload pop /.PUTINTERVAL .pdfcvsall
  363.   } bind
  364. .dicttomark readonly def
  365. /.pdfparamerror {    % ? ? ? -mark- ... <errname> <opname> .pdfparamerror -
  366.     counttomark 4 add 2 roll cleartomark pop pop pop
  367.     .systemvar exch signalerror
  368. } bind def
  369. /pdfmark {        % -mark- <key> <value> ... <markname> pdfmark -
  370.   counttomark 1 add copy
  371.   //.pdfmarkparams 1 index .knownget { exec } { .pdfcvsall } ifelse
  372.   mark /pdfmark 3 -1 roll .pdfputparams
  373.   dup type /booleantype ne {
  374.     /pdfmark .pdfparamerror
  375.   } if cleartomark
  376. } odef
  377. userdict /pdfmark .undef
  378. currentdict /.pdfmarkparams .undef
  379.  
  380. % Use the DSC processing hook to pass DSC comments to the driver.
  381. % We use a pseudo-parameter named DSC whose value is an array:
  382. %    /key1 (value1) ... /type
  383. /.pdfdsc_dict 2 dict def
  384. /.pdfdsc {    % <file> <DSC string> <dsc dict> [<prev proc>] .pdfdsc -
  385.   0 get dup null ne { 4 copy exch pop exec } { pop } ifelse 3 -1 roll pop
  386.         % Stack: <dsc string> <dsc dict>
  387.   20 .localvmdict 1 index { 3 copy put pop pop } forall
  388.   3 -1 roll .parse_dsc_comments    % <dsc dict> <dict> <type>
  389.   dup /NOP ne 2 index length 1 gt or {    % Skip unparsed comments
  390.     DEBUG { (**** DSC comment: ) print dup == 1 index === flush } if
  391.     exch mark 4 1 roll {
  392.         % mark <key1> <value1> ... <dsc dict> <type> <key> <value>
  393.       3 index 2 index known {    % Skip the DSC_struct entry
  394.         pop pop
  395.       } {
  396.         .pdfcvs 4 -2 roll
  397.       } ifelse
  398.     } forall exch pop counttomark .localvmarray astore
  399.     mark /DSC 3 -1 roll .pdfputparams
  400.     dup type /booleantype ne {
  401.       /DSC .pdfparamerror
  402.     } {
  403.       cleartomark
  404.     } ifelse
  405.   } {
  406.     pop pop pop
  407.   } ifelse
  408. } bind def
  409. /.initialize_dsc_parser where {
  410.   pop 2 dict dup .initialize_dsc_parser readonly
  411.   currentuserparams /ProcessDSCComment get
  412.   1 array astore    % in case the value is executable
  413.   //.pdfdsc /exec load 4 array astore cvx readonly
  414.   << /ProcessDSCComment 3 -1 roll >> setuserparams
  415. } if
  416.  
  417. % ---------------- {set,current}distillerparams ---------------- %
  418.  
  419. % Define setdistillerparams / currentdistillerparams.
  420. % Distiller parameters are currently treated as device parameters.
  421. /.distillerparamkeys mark
  422.         % General parameters -- all distillers
  423.   /ASCII85EncodePages { }
  424.   /AutoRotatePages { }
  425.   /Binding { }
  426.   /CompressPages { }
  427.   /DefaultRenderingIntent { }
  428.   /DetectBlends { }
  429.   /DoThumbnails { }
  430.   /ImageMemory { }
  431.   /LockDistillerParams { }
  432.   /LZWEncodePages { }
  433.   /OPM { }
  434.   /PreserveHalftoneInfo { }
  435.   /PreserveOPIComments { }
  436.   /PreserveOverprintSettings { }
  437.   /TransferFunctionInfo { }
  438.   /UCRandBGInfo { }
  439.   /UseFlateCompression { }
  440.         % General parameters -- PDF writer
  441.         % StartPage and EndPage are renamed because EndPage
  442.         % clashes with a page device parameter.
  443.   /CoreDistVersion { }
  444.   /CompatibilityLevel { }
  445.         % ****** NOTE: StartPage and EndPage are disabled because
  446.         % ****** EndPage clashes with a page device parameter.
  447. %  /EndPage { exch pop /PDFEndPage exch }
  448.     /PDFEndPage { pop pop }
  449. %  /StartPage { exch pop /PDFStartPage exch }
  450.     /PDFStartPage { pop pop }
  451.   /Optimize { }
  452.   /ParseDSCCommentsForDocInfo { }
  453.   /ParseDSCComments { }
  454.   /EmitDSCWarnings { }
  455.   /CreateJobTicket { }
  456.   /PreserveEPSInfo { }
  457.   /AutoPositionEPSFiles { }
  458.   /PreserveCopyPage { }
  459.   /UsePrologue { }
  460.   /OffOptimizations { }
  461.         % Color sampled image parameters
  462.   /ColorACSImageDict { }
  463.   /AntiAliasColorImages { }
  464.   /AutoFilterColorImages { }
  465.   /ColorImageDepth { }
  466.   /ColorImageDict { }
  467.   /DownsampleColorImages { }
  468.   /ColorImageDownsampleThreshold { }
  469.   /ColorImageDownsampleType { }
  470.   /EncodeColorImages { }
  471.   /ColorImageFilter { }
  472.   /ColorImageResolution { }
  473.         % Color processing parameters
  474.   /CalCMYKProfile { }
  475.   /CalGrayProfile { }
  476.   /CalRGBProfile { }
  477.   /sRGBProfile { }
  478.   /ColorConversionStrategy { }
  479.   /ConvertCMYKImagesToRGB { }
  480.   /ConvertImagesToIndexed { }
  481.         % Grayscale sampled image parameters
  482.   /GrayACSImageDict { }
  483.   /AntiAliasGrayImages { }
  484.   /AutoFilterGrayImages { }
  485.   /GrayImageDepth { }
  486.   /GrayImageDict { }
  487.   /DownsampleGrayImages { }
  488.   /GrayImageDownsampleThreshold { }
  489.   /GrayImageDownsampleType { }
  490.   /EncodeGrayImages { }
  491.   /GrayImageFilter { }
  492.   /GrayImageResolution { }
  493.         % Monochrome sampled image parameters
  494.   /AntiAliasMonoImages { }
  495.   /MonoImageDepth { }
  496.   /MonoImageDict { }
  497.   /DownsampleMonoImages { }
  498.   /MonoImageDownsampleThreshold { }
  499.   /MonoImageDownsampleType { }
  500.   /EncodeMonoImages { }
  501.   /MonoImageFilter { }
  502.   /MonoImageResolution { }
  503.         % Font embedding parameters
  504.   /AlwaysEmbed
  505.    { dup length 0 gt
  506.       { dup 0 get false eq
  507.          { dup length 1 sub 1 exch getinterval exch pop /~AlwaysEmbed exch
  508.          } if
  509.       } if
  510.    }
  511.   /NeverEmbed
  512.    { dup length 0 gt
  513.       { dup 0 get false eq
  514.          { dup length 1 sub 1 exch getinterval exch pop /~NeverEmbed exch
  515.          } if
  516.       } if
  517.    }
  518.   /CannotEmbedFontPolicy { }
  519.   /EmbedAllFonts { }
  520.   /MaxSubsetPct { }
  521.   /SubsetFonts { }
  522. .dicttomark readonly def
  523. /.distillerdevice
  524.  { currentdevice .devicename /pdfwrite eq
  525.     { currentdevice }
  526.     { /pdfwrite finddevice }
  527.    ifelse
  528.  } bind def
  529.  
  530. % Some badly designed PostScript files only expect the current/set
  531. % distillerparams operators to exist in a distiller. Since we have
  532. % this as a runtime option, we enable these operators IFF the
  533. % currentdevice is pdfwrite. Also, we mask their existence in 
  534. % systemdict so that 'where' and 'known' don't show them unless
  535. % the currentdevice is pdfwrite.
  536. /.setdistillerparams {        % <dict> setdistillerparams -
  537.   .distillerdevice //null false mark 4 index {
  538.     //.distillerparamkeys 2 index .knownget { exec } { pop pop } ifelse
  539.   } forall .putdeviceparams
  540.   dup type /booleantype ne {
  541.     /setdistillerparams .pdfparamerror
  542.   } {
  543.     pop pop pop
  544.   } ifelse
  545. } odef
  546. /.currentdistillerparams {    % - currentdistillerparams <dict>
  547.   .distillerdevice //.distillerparamkeys .getdeviceparams .dicttomark
  548.         % Patch StartPage and EndPage
  549.         % ****** NOTE: StartPage and EndPage are disabled because
  550.         % ****** EndPage clashes with a page device parameter.
  551. %  begin /StartPage PDFStartPage /EndPage PDFEndPage
  552. %  currentdict dup /PDFStartPage undef /PDFEndPage undef
  553. %  def def currentdict end
  554. } odef
  555. /setdistillerparams {
  556.   currentdevice .devicename /pdfwrite ne {
  557.     /setdistillerparams /undefined signalerror
  558.   } if
  559.   .setdistillerparams
  560. } bind odef
  561. /currentdistillerparams {
  562.   currentdevice .devicename /pdfwrite ne {
  563.     /currentdistillerparams /undefined signalerror
  564.   } if
  565.   .currentdistillerparams
  566. } bind odef
  567.  
  568. % Patch 'where' so that the distiller operators are only visible
  569. % if the pdfwrite device is the current one.
  570. { currentdevice .devicename /pdfwrite eq {
  571.     .where
  572.   } {
  573.     .where pop dup //systemdict eq { pop false } { true } ifelse
  574.   } ifelse
  575. } bind
  576. { /currentdistillerparams /setdistillerparams /pdfmark }
  577. { .wheredict exch 2 index put } forall pop
  578.  
  579. % Patch 'known' to hide the systemdict version of distiller operators
  580. % unless the currentdevice is pdfwrite.
  581. /known {
  582.   /currentdistillerparams 1 index eq /setdistillerparams 2 index eq or 
  583.   /pdfmark 2 index eq or {
  584.     systemdict 2 index eq {    % only mask the operator in systemdict
  585.       known currentdevice .devicename /pdfwrite ne { pop false } if
  586.   } {
  587.     known
  588.   } ifelse
  589.   } {
  590.     known
  591.   } ifelse
  592. } .bind odef
  593.  
  594. % Set a predefined configuration if PDFSETTINGS is defined.
  595. /PDFSETTINGS where { pop /PDFSETTINGS load } { /default } ifelse
  596. .distillersettings exch get
  597. % Don't override parameters defined on the command line.
  598. dup length .distillercommon length add dict begin
  599. .distillercommon 2 {
  600.   {
  601.     systemdict 2 index known { pop pop } { def } ifelse
  602.   } forall
  603. } repeat
  604. currentdict end .setdistillerparams
  605.